PC World Komputer 2000 July & August/EPA005.iso/Freeware/Genesis II terrain builder/_SETUP.1/Genesis2.exe/0/RCDATA/TFURBANPLAN/TFURBANPLAN.txt

Text File | 1999-10-16 | 6KB | 307 lines

inherited FUrbanPlan: TFUrbanPlan
  Left = 220
  Top = 112
  BorderStyle = bsSingle
  Caption = 'Urban Plans'
  ClientHeight = 361
  ClientWidth = 593
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 193
    Height = 361
    Caption = 'Urban Plans'
    TabOrder = 0
    object PlanListBox: TListBox
      Left = 8
      Top = 16
      Width = 177
      Height = 305
      ItemHeight = 13
      TabOrder = 0
      OnClick = PlanListBoxClick
    end
    object DeleteButton: TButton
      Left = 104
      Top = 328
      Width = 75
      Height = 25
      Caption = 'Delete'
      TabOrder = 2
      Visible = False
    end
    object NewButton: TButton
      Left = 14
      Top = 328
      Width = 75
      Height = 25
      Caption = 'New'
      TabOrder = 1
      OnClick = NewButtonClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 200
    Top = 0
    Width = 393
    Height = 361
    Caption = 'Properties'
    TabOrder = 1
    object Bevel1: TBevel
      Left = 8
      Top = 64
      Width = 125
      Height = 125
    end
    object Bevel2: TBevel
      Left = 136
      Top = 64
      Width = 125
      Height = 125
    end
    object Label2: TLabel
      Left = 6
      Top = 22
      Width = 28
      Height = 13
      Caption = 'Name'
    end
    object Label4: TLabel
      Left = 8
      Top = 232
      Width = 55
      Height = 13
      Caption = 'Height Plan'
    end
    object Label5: TLabel
      Left = 8
      Top = 256
      Width = 72
      Height = 13
      Caption = 'Wall Color Plan'
    end
    object PlanHeightImage: TImage
      Left = 10
      Top = 66
      Width = 119
      Height = 119
      Stretch = True
    end
    object PlanWallColorImage: TImage
      Left = 138
      Top = 66
      Width = 121
      Height = 121
      Stretch = True
    end
    object Label1: TLabel
      Left = 8
      Top = 48
      Width = 55
      Height = 13
      Caption = 'Height Plan'
    end
    object Label3: TLabel
      Left = 136
      Top = 48
      Width = 72
      Height = 13
      Caption = 'Wall Color Plan'
    end
    object Label58: TLabel
      Left = 8
      Top = 304
      Width = 84
      Height = 13
      Caption = 'Plan Size (metres)'
    end
    object Label6: TLabel
      Left = 281
      Top = 304
      Width = 34
      Height = 13
      Caption = 'Height:'
    end
    object Label7: TLabel
      Left = 107
      Top = 304
      Width = 8
      Height = 13
      Caption = 'x:'
    end
    object Label8: TLabel
      Left = 195
      Top = 304
      Width = 8
      Height = 13
      Caption = 'y:'
    end
    object Label9: TLabel
      Left = 264
      Top = 48
      Width = 74
      Height = 13
      Caption = 'Roof Color Plan'
    end
    object Bevel3: TBevel
      Left = 264
      Top = 64
      Width = 125
      Height = 125
    end
    object PlanRoofColorImage: TImage
      Left = 266
      Top = 66
      Width = 121
      Height = 121
      Stretch = True
    end
    object Label10: TLabel
      Left = 8
      Top = 280
      Width = 74
      Height = 13
      Caption = 'Roof Color Plan'
    end
    object Label11: TLabel
      Left = 8
      Top = 208
      Width = 56
      Height = 13
      Caption = 'Urban Type'
    end
    object PlanHeightSourceEdit: TEdit
      Left = 120
      Top = 224
      Width = 241
      Height = 21
      ReadOnly = True
      TabOrder = 1
    end
    object HeightFileButton: TButton
      Left = 360
      Top = 224
      Width = 25
      Height = 21
      Caption = '...'
      Enabled = False
      TabOrder = 2
      OnClick = HeightFileButtonClick
    end
    object PlanNameEdit: TEdit
      Left = 64
      Top = 16
      Width = 321
      Height = 21
      TabOrder = 0
      OnChange = PlanNameEditChange
    end
    object ModelPathButton: TButton
      Left = 272
      Top = 328
      Width = 113
      Height = 25
      Caption = 'Set Model Directory'
      TabOrder = 3
    end
    object PlanWallColorSourceEdit: TEdit
      Left = 120
      Top = 248
      Width = 241
      Height = 21
      ReadOnly = True
      TabOrder = 4
    end
    object WallColorFileButton: TButton
      Left = 360
      Top = 248
      Width = 25
      Height = 21
      Caption = '...'
      Enabled = False
      TabOrder = 5
      OnClick = WallColorFileButtonClick
    end
    object PlanXSizeEdit: TFloatEdit
      Left = 120
      Top = 296
      Width = 65
      Height = 21
      TabOrder = 6
      Text = '0.00'
      OnChange = PlanXSizeEditChange
      Digits = 2
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object PlanYSizeEdit: TFloatEdit
      Left = 208
      Top = 296
      Width = 65
      Height = 21
      TabOrder = 7
      Text = '0.00'
      OnChange = PlanYSizeEditChange
      Digits = 2
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object PlanHeightSizeEdit: TFloatEdit
      Left = 320
      Top = 296
      Width = 65
      Height = 21
      TabOrder = 8
      Text = '0.00'
      OnChange = PlanHeightSizeEditChange
      Digits = 2
      Max = 99999999.900000000000000000
      ErrorMessage = '[No Text]'
    end
    object PlanRoofColorSourceEdit: TEdit
      Left = 120
      Top = 272
      Width = 241
      Height = 21
      ReadOnly = True
      TabOrder = 9
    end
    object RoofColorFileButton: TButton
      Left = 360
      Top = 272
      Width = 25
      Height = 21
      Caption = '...'
      Enabled = False
      TabOrder = 10
      OnClick = RoofColorFileButtonClick
    end
    object PlanZoneComboBox: TComboBox
      Left = 120
      Top = 200
      Width = 89
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'Suburban'
        'Urban'
        'Industrial')
      TabOrder = 11
      Text = 'Suburban'
      OnChange = PlanZoneComboBoxChange
    end
  end
  object OpenPictureDialog: TOpenPictureDialog
    DefaultExt = 'bmp'
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 208
    Top = 328
  end
end